home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / CDROM / SCDPlayer / Rexx / Sample.scdp < prev    next >
Text File  |  1996-12-06  |  1KB  |  79 lines
  1. /* Skandalfo CD Player ARexx script 
  2. ** Sample.
  3. */
  4.  
  5. /* Configure here: */
  6.  
  7. AGMSRecordPath="Work:Modules/AGMSRecordSnd5/AGMSRecordSound"    /* Path to executable */
  8. Frequency=22000                                                    /* Sample rate */
  9.  
  10. /* End of configuration */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. TRACKS
  15. NUM=RESULT
  16.  
  17. CAD=""
  18. DO I=1 TO NUM
  19.     CAD=CAD||I||"|"
  20.     END
  21.     
  22. CAD=CAD"CANCEL"
  23.  
  24. ADDRESS COMMAND 'RequestChoice "Request" "Select a track to sample" "'CAD'" >T:Sample.result'
  25.  
  26. IF ~OPEN(F,"T:Sample.result","R") THEN RETURN
  27. TR=READLN(F)
  28. CALL CLOSE(F)
  29.  
  30. ADDRESS COMMAND "Delete T:Sample.result"
  31.  
  32. IF TR=0 THEN RETURN
  33.  
  34. TRACKNAME TR
  35. NAME=RESULT
  36.  
  37. ADDRESS COMMAND 'RequestFile TITLE "Select a filename for the sample" FILE "'NAME'" >T:Sample.result'
  38.  
  39. IF ~OPEN(F,"T:Sample.result","R") THEN RETURN
  40. FILE=READLN(F)
  41. CALL CLOSE(F)
  42.  
  43. ADDRESS COMMAND "Delete T:Sample.result"
  44.  
  45. IF FILE="" THEN RETURN
  46.  
  47. FLAG=1
  48.  
  49. qq='run >CON: "'AGMSRecordPath'" 'FILE' HZ 'Frequency
  50. ADDRESS COMMAND qq
  51.  
  52. PLAYTRACK TR
  53. USERACTION
  54.  
  55. DO WHILE FLAG
  56.     ADDRESS COMMAND Delay 500
  57.     
  58.     USERACTION
  59.     UA=RESULT
  60.     
  61.     IF UA~=0 THEN DO
  62.         ADDRESS "AGMSRecordSound" "StopRecording"
  63.         RETURN
  64.         END
  65.     
  66.     STATUS
  67.     ST=RESULT
  68.     
  69.     IF ST=NODISK THEN DO
  70.         ADDRESS "AGMSRecordSound" "StopRecording"
  71.         RETURN
  72.         END
  73.     
  74.     IF ST=STOPPED THEN DO
  75.         ADDRESS "AGMSRecordSound" "StopRecording"
  76.         RETURN
  77.         END
  78.     
  79.     END